inherited FPesquisaPlanoCentro: TFPesquisaPlanoCentro
  Left = 236
  Top = 107
  Caption = 'Pesquisa Rela'#231#227'o Classifica'#231#227'o Financeira Centro Custo'
  ClientHeight = 346
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      OnClick = BtnSelecionarClick
    end
  end
  inherited Panel1: TPanel
    Height = 305
    object Label10: TLabel [0]
      Left = 4
      Top = 125
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label8: TLabel [1]
      Left = 4
      Top = 36
      Width = 114
      Height = 13
      Caption = 'Classifica'#231#227'o Financeira'
    end
    object Label2: TLabel [2]
      Left = 211
      Top = 36
      Width = 61
      Height = 13
      Caption = 'Centro Custo'
    end
    object Label1: TLabel [3]
      Left = 4
      Top = 73
      Width = 105
      Height = 13
      Caption = 'Conta Contabil Credito'
    end
    object Label3: TLabel [4]
      Left = 211
      Top = 73
      Width = 103
      Height = 13
      Caption = 'Conta Contabil Debito'
    end
    object Label4: TLabel [5]
      Left = 4
      Top = 0
      Width = 33
      Height = 13
      Caption = 'Codigo'
    end
    inherited DBGrid1: TDBGrid
      Top = 179
      TabOrder = 8
      Columns = <
        item
          Expanded = False
          FieldName = 'CODIGO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PLANO'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CENTRO'
          Visible = True
        end>
    end
    inherited Panel3: TPanel
      Top = 284
      TabOrder = 0
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 4
      Top = 108
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 6
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 139
      Width = 411
      Height = 40
      Align = alBottom
      Columns = 1
      ItemHeight = 13
      TabOrder = 7
    end
    object DBLCBPlano: TDBLookupComboBox
      Left = 4
      Top = 50
      Width = 198
      Height = 21
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = DSPlano
      TabOrder = 2
      OnKeyDown = DBLCBPlanoKeyDown
    end
    object DBLCBCentro: TDBLookupComboBox
      Left = 210
      Top = 50
      Width = 198
      Height = 21
      KeyField = 'CODIGO'
      ListField = 'DESCRICAO'
      ListSource = DSCentro
      TabOrder = 3
      OnKeyDown = DBLCBPlanoKeyDown
    end
    object DBLCBContaCred: TDBLookupComboBox
      Left = 4
      Top = 87
      Width = 198
      Height = 21
      KeyField = 'PLANOCONT_CODIGO'
      ListField = 'PLANOCONT_DESCRICAO'
      ListSource = DSContaCred
      TabOrder = 4
      OnKeyDown = DBLCBPlanoKeyDown
    end
    object DBLCBContaDeb: TDBLookupComboBox
      Left = 210
      Top = 87
      Width = 198
      Height = 21
      KeyField = 'PLANOCONT_CODIGO'
      ListField = 'PLANOCONT_DESCRICAO'
      ListSource = DSContaDeb
      TabOrder = 5
      OnKeyDown = DBLCBPlanoKeyDown
    end
    object ECodigo: TEdit
      Left = 4
      Top = 14
      Width = 91
      Height = 21
      TabOrder = 1
      OnKeyPress = ECodigoKeyPress
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select PlanoCentro_Codigo as Codigo,PlanoContas.Estrutura,PlanoC' +
        'ontas.Descricao as Plano,CentroCusto.descricao as Centro,PlanoCe' +
        'ntro_ContaContabilCred as ContaCredito,PlanoCentro_ContaContabil' +
        'Deb as ContaDebito'
      
        'from PlanoContasCentroCusto Left join  PlanoContas on  PlanoCont' +
        'as.codigo = PlanoCentro_Plano  inner join  Centrocusto on  Centr' +
        'ocusto.codigo = PlanoCentro_CentroCusto'
      ''
      'Order By PlanoContas.Estrutura,CentroCusto.descricao'
      ''
      ''
      ''
      ''
      '')
    Top = 209
  end
  inherited DSPesquisa: TDataSource
    Top = 209
  end
  object DSPlano: TDataSource
    DataSet = DMFinanceiro.QPlano
    Left = 128
    Top = 96
  end
  object DSCentro: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 312
    Top = 96
  end
  object DSContaCred: TDataSource
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 128
    Top = 136
  end
  object DSContaDeb: TDataSource
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 320
    Top = 136
  end
  object QPlanoCentro: TQuery
    DatabaseName = 'baseLocal'
    RequestLive = True
    SQL.Strings = (
      'Select * From PlanoCentro'
      'Order by Estrutura,Centro')
    Left = 288
    Top = 200
  end
  object QAux: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from PlanoContabilidade')
    Left = 320
    Top = 200
  end
end
